home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 11
/
CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso
/
propage
/
genies
/
frenchgenies
/
rexx
/
identifieboîte.pprx
< prev
next >
Wrap
Text File
|
1993-08-03
|
1KB
|
49 lines
/*
@BIdentifieBoîte @P @I Ecrit et © par Don Cox
@IN'est pas du Domaine Publique. Tous Droits Réservés.
Traduit et modifié par Fabien Larini le 22/07/93.
Ce Génie affiche le nom, le numéro et la donnée utilisateur de la boîte sélectionnée.
*/
/*BoxIdentify*/
/* Get name and number of box. The user data will only be present if it has been put in the box by a genie.
Written by Don Cox */
trace n
signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
address command
call SafeEndEdit.rexx()
box=ppm_ClickOnBox("Clickez dans la Boîte à Identifier")
if box=0 then exit_msg("Pas de Boîte Sélectionnée")
boxname = ppm_GetBoxName(box)
if boxname = "" then boxname = "(Sans Nom)"
thisbox = ppm_BoxNum(box)
udata = ppm_GetBoxUserData(box)
if udata = 0 then udata = "Pas de"
call exit_msg("Nom: "boxname" Numéro: "box" Donnée Utilisateur: "udata))
end
error:
syntax:
do
exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
end
exit_msg:
do
parse arg message
if message ~= "" then
call ppm_Inform(1,message,)
call ppm_ClearStatus()
call ppm_AutoUpdate(1)
exit
end